home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / weitere_demos / adm / arexx / turbotext / displayaddress.ttx next >
Text File  |  1995-06-04  |  1KB  |  52 lines
  1. /* $VER DisplayAddress.ttx 1.1 (11.02.93)
  2.  
  3.    Makro für TurboText.
  4.  
  5.    Zeigt eine Adresse, die zum unter dem Cursor befindlichen Nachnamen
  6.    paßt, an.
  7.  
  8.    Written by Jan Geissler.
  9.                                                                  */
  10.  
  11.  
  12. OPTIONS RESULTS
  13.  
  14. GETWORD                      /*    Wort unter Cursor holen */
  15. WORT = RESULT
  16.  
  17. ADDRESS 'ADM.1'
  18.  
  19. fst = 1                      /* Anfangsposition = 1 (= erste Adresse) */
  20. res = 0
  21.  
  22. DO FOREVER                   /* Endlosschleife */
  23.  
  24.    ADM.LASTNAME = WORT
  25.    SEARCH fst ADM            /* Eintrag suchen */
  26.    res = RESULT
  27.  
  28.    IF res >-1 THEN DO        /* Rückgabewert = Nummer der gefundenen
  29.                                 Adresse */
  30.  
  31.       GETADDRESS RESAD       /* Adresse holen in Stemvariable RESAD   */
  32.  
  33.            DISPLAY
  34.  
  35.            EXIT                /* ... und Programm verlassen          */
  36.    END
  37.    ELSE                      /* Fehler aufgetreten */
  38.  
  39.       ADDRESS
  40.       IF res=-2 THEN msg="AdressSpeicher_leer!"
  41.       IF res=-3 THEN msg="Nicht_genug_Speicher!"
  42.       IF res=-4 THEN msg="Aufruf_v.SEARCH_falsch!"
  43.       IF res=-5 THEN msg="Interner_Fehler_in_Search"
  44.       IF res=-6 THEN msg="Kein_Suchparam.in_Stem"
  45.       IF res=-7 THEN msg="SearchPos_ungültig!"
  46.       REQUESTBOOL "Fehler!" msg
  47.  
  48.       EXIT
  49.  
  50.    END /* IF */
  51. END /* DO */
  52.